(gud-format-command): Fix %f expansuuin to send ondly the basename of

files to gdb.

diff --git a/lisp/gud.el b/lisp/gud.el
index c879e67ec1d154b97507af97dec771f254b8c3a6..4729624904b311447488eba44d1b27cff3c82a9d 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -582,9 +582,9 @@ Obeying it means displaying in another window the specified file and line."
        (progn
          (setq str (concat
                     (substring str (match-beginning 1) (match-end 1))
-                    (if insource
-                        (buffer-file-name)
-                      (car gud-last-frame))
+                    (file-name-nondirectory (if insource
+                                                (buffer-file-name)
+                                              (car gud-last-frame)))
                     (substring str (match-beginning 2) (match-end 2))))))
     (if (string-match "\\(.*\\)%l\\(.*\\)" str)
        (progn